﻿
Public Class frmLlenar_Usuarios
    Private usuarios As New cUsuarios
    Private Llenar_TI As New cDatos_Fijos

    Private Sub cmdEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnviar.Click
        'MsgBox(dtpFecha_Nacimiento.Text)
        usuarios.Codigo_Usuario = Mid(cboTipo_Identificacion.Text, 1, 2) & txtNumero_Identificacion.Text
        usuarios.Codigo_Tipo_Identificacion = Mid(cboTipo_Identificacion.Text, 1, 2)
        usuarios.Numero_Identificacion = txtNumero_Identificacion.Text
        usuarios.Primer_Nombre = txtPrimer_Nombre.Text
        usuarios.Segundo_Nombre = txtSegundo_Nombre.Text
        usuarios.Primer_Apellido = txtPrimer_Apellido.Text
        usuarios.Segundo_Apellido = txtSegundo_Apellido.Text
        MsgBox(dtpFecha_Nacimiento.Value)
        usuarios.Fecha_Nacimiento = dtpFecha_Nacimiento.Value
        usuarios.Sexo = Mid(cboSexo.Text, 1, 1)
        usuarios.Guardar()
        Close()
    End Sub

    Private Sub frmLlenar_Usuarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim resultado As DataSet
        resultado = Llenar_TI.Cargar("Ti")
        cboTipo_Identificacion.DataSource = resultado.Tables(0)
        'cboTipo_Identificacion.DisplayMember = "codigo_tipo_identificacion" & "-" & "nombre_tipo_identificacion"
        cboTipo_Identificacion.DisplayMember = "codigo"
    End Sub
End Class